home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / modula2 / cal.com / CAL.MOD < prev    next >
Encoding:
Text File  |  1989-06-03  |  192 b   |  13 lines
  1. MODULE Cal;
  2.  
  3.   IMPORT Time;
  4.  
  5.   VAR d: Time.Date;
  6.       dayOfWeek: Time.DayType;
  7.       abort: BOOLEAN;
  8.  
  9. BEGIN
  10.   Time.GetSysDate(d, dayOfWeek);
  11.   Time.GetSelDate(d, abort)
  12. END Cal.
  13.